home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / internet / rtrmon / myrtrmn2.bas next >
Encoding:
BASIC Source File  |  1995-09-19  |  871 b   |  36 lines
  1. Option Explicit
  2.  
  3.  ' Variables:
  4.   Global gbRouterLoaded As Integer         ' router loaded flag
  5.  
  6. Sub Main ()
  7.  
  8.  ' Variables:
  9.   Dim bNoCheck As Integer         ' omit check during startup
  10.   Dim nRC      As Integer         ' return code
  11.  
  12.   ' set global character variables
  13.   Call zzSetGlobalVariables
  14.  
  15.   ' get omit warning message option
  16.   nRC = zzINISetFile("WIN.INI")
  17.   nRC = zzINISetSection("AS400API")
  18.   nRC = zzINIGetInteger("Omit Check", bNoCheck)
  19.  
  20.   ' if running normal or not displaying then end program
  21.   If Command$ = gsEMPTY And bNoCheck Then End
  22.   
  23.   ' is router loaded
  24.   gbRouterLoaded = zzCARouterLoaded(0)
  25.   
  26.   ' if running normal and router loaded then end program
  27.   If Command$ = gsEMPTY And gbRouterLoaded Then End
  28.   
  29.   ' show form
  30.   Load frmMyRtrMon
  31.   frmMyRtrMon!chkDisplay.Value = bNoCheck
  32.   frmMyRtrMon.Show
  33.  
  34. End Sub
  35.  
  36.